perm filename MUFNC[CMS,LCS] blob sn#092537 filedate 1974-03-17 generic text, type T, neo UTF8
00100	ARRAY F2,F3,F4,F5,F6,F7,F8,F9(512);
00200	SYNTH(F2);1,1 2,.6 3,.2 5,.1 999;
00300	SYNTH(F4);1,.6 2,.3 4,.4 6,.6 10,.5 13,.2 999;
00400	SEG(F3);1,1 .7,76 .3,88 0,100;
00500	SEG(F5);0,1 .4,40 .3,55 1,100;
00600	SEG(F6);0,1 1,50 .2,100;
00700	SYNTH(F7);1,1 2,.7 3,.5 11,.1 999;
00800	SEG(F9);0,0 .2,80 1,100;
00900	SEG(F8);0,0 .8,20 .3,40 1,65 .7,80 .1,100;
01000	
01100	COMPILE;
01200	INSTRUMENT FUZZ;
01300	OSCIL(P4,MAG/P2,P5);
01400	OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
01500	OSCIL(U1,MAG*P3+U2,P6);
01600	OUTA←OUTA+U3; END;
01700	
01800	INSTRUMENT WUZZ;
01900	OSCIL(P4,MAG/P2,P5);
02000	OSCIL(MAG*P7-MAG*P3,MAG/P8,P9);
02100	OSCIL(U1,MAG*P3+U2,P6);
02200	OUTA←OUTA+U3; END;
02300	
02400	INSTRUMENT FAT;
02500	OSCIL(P4,MAG*P2,P5);
02600	RANDH(MAG*P7,MAG*P8);
02700	OSCIL(U1,MAG*P3+U2,P6);
02800	OUTA←OUTA+U3; END;
02900	FINISH;